From 3008ffb6cd5a286585c27161cfbb0b4a07c760f4 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 11 Jun 1993 11:33:31 +0000 Subject: [PATCH] * frame.el (frame-initialize): Remember to actually traverse initial-frame-alist. --- lisp/frame.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/frame.el b/lisp/frame.el index 6abf8126032..b7553517240 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -108,7 +108,8 @@ These supersede the values given in `default-frame-alist'.") (if (and (consp (car tail)) (memq (car (car tail)) '(height width top left))) (setq initial-frame-alist - (delq tail initial-frame-alist))))) + (delq tail initial-frame-alist))) + (setq tail (cdr tail)))) ;; Handle `reverse' as a parameter. (if (cdr (or (assq 'reverse initial-frame-alist) (assq 'reverse default-frame-alist) -- 2.30.2